﻿Public Class redir

    Private Sub ButtonX1_Click(sender As Object, e As EventArgs)
        'Redirect /olddirectory http://www.newsite.com/newdirectory

        htaccess.RichTextBox1.AppendText(Environment.NewLine)
        htaccess.RichTextBox1.AppendText(Environment.NewLine)
        htaccess.RichTextBox1.AppendText("Redirect " + TextBoxX1.Text + " " + TextBoxX2.Text)
        Me.Close()

    End Sub

    Private Sub CloudButton1_Click(sender As Object, e As EventArgs) Handles CloudButton1.Click
        htaccess.RichTextBox1.AppendText(Environment.NewLine)
        htaccess.RichTextBox1.AppendText(Environment.NewLine)
        htaccess.RichTextBox1.AppendText("Redirect " + TextBoxX1.Text + " " + TextBoxX2.Text)
        Me.Close()

    End Sub
End Class